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MODULE LIB_LIST ! Routines to List contents of a Library 


BEGIN 


‘ 
See RRR AERA RARE AAA E ARERR eee 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
:* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!t ALL RIGHTS RESERVED 


a 
* 
® 
we 
* 
if THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
in COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. * 
4 ® 
if THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMEX’ * 
is CORPORATION. » 

® 

i. 

® 

*® 

& 

® 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Library command processor 
ABSTRACT: 
. The VAX/VMS Librarian is invoked by DCL to process the LIBRARY 


command. It utilizes the Librarian procedure set to perform 
the actual modifications to the Library. 
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' 
ENVIRONMENT: 
004 i VAX native, user mode. 
0044 i 
0045 in 
me yi 
srt AUTHOR: Benn Schreiber, CREATION DATE: 21-June-1979 
320 MODIFIED BY: 
B36 i v03-002 SyAp0es Greg Awdziewicz 
05 i Deal with ‘false’ status returned from display. + pe 
bee i and now propagated back through LBR$Search. 
926 i v03-001 JwT0056 Jim Teague 17-Sep-1982 
05 i Add a Line to Pity As to indicate that tloraey is in 
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Convert to possepe compiler. Add Library of shareable 
image symbol tables. 
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/LIS_LIST 16-Sep-1 AX-11 Bliss-32 V4.0-742 P 
“Won=008 1e=$ep-1984 93:38:09 Ee TaRaR SRESLISTL 1B 5301 oF 

: rs 0959 DCX data reduced format. 

: 60 060 i v02=008 Bob Grosso 17-Dec-1981 
is $6) Bees : Suppress "history header Line on empty history and 

; ° B008 veport status of history. 

: 64 0064 i v02-007 PG0047 Bob Grosso 7-Aug-1981 

; 65 0065 ; guppert WBEF ORE and /SINCE. 

; $8 pos ; descriptors shareable. 

: 0068 1! v02-006 RPG0039 Bob Grosso 1-Jul-1981 

; ; 494 List header even when Library is empty. 

oa. 0071 1! v02-005 RPG0038 Bob Grosso 12-Jun-1981 

; f Boos Add display_history. 

; 2 0074 ; v02-004 BLS0029 Benn Schreiber 23-Dec-1980 

. i 

: i 
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10200 1228687138 95:93:09 UCTERARSRCSLISTLI8.852¢1 ° (2) | 
\aa- p80 1 LIBRARY : 
13 3 081 1 *SYSSLIBRARY:STARLET.L32'; 'System data structures ; 
ls 082 1 REQUIRE ; 
is 684 0085 1 *PREFIX'; !Macros ; 
i; 85 0267 1 REQUIRE ; 
i; 86 8 98 1 *LIBDEF'; 'Librarian data structures : 
is BT § 1 REQUIRE ; 
tia... 0557 1 "LBRDEF'; 'Library processor defs. ; 
i; 89 1148 1 REQUIRE : 

3 oY be 4 } *OLDFMTDEF'; 'Old Library format defintions 
G 9% 1246 1 EXTERNAL ROUTINE 
is6 lg 1247 1 Lib_open_out, iepen output file 

; 9% 1248 1 Lib_close_out, ‘Close output file 

; 1249 1 Lib_get_mem, ‘Allocate memory 

; 1250 1 Lib_free_mem, ‘and deallocate it 

: 97 1251 1 LorSlookUp_key : ADDRESSING_MGDE (GENERAL), !Lookup a key in the index 

; «498 1526 1 Lor$get_header : ADDRESSING MODE (GENERAL), !Return Library header 

; 99 12535 1 Lor$get_history : ADDRESSING MODE (GENERAL),!Return Library history 

; 100 1254 1 tpraves. index : ADDRESSING MODE (GENERAL), !Return contents of index 

, 101 1255 1 Lbr$set_module : ADDRESSING MODE (GENERAL), !Get module header 

; 102 1256 1 Lbr$search : ADDRESSING MODE (GENERAL), ‘Search for other keys 

: 103 1257 1 SYS$FAO : ADDRESSING MODE (GENERAL) 

: 104 1258 1 SYS$FAOL : ADDRESSING_MODE (GENERALS; 

: 105 1259 1 

; 106 1260 1 EXTERNAL 

: 107 1261 1 Lib$Sbefore_date : BBLOCK, ‘date for /BEFORE 

3 108 1366 1 Lib$since_date : BBLOCK ‘date for /SINCE 

: 109 1263 1 Lbr$gl_rmsstv : ADDRESSING MODE (GENERAL), ‘RMS STV from Librarian ; 

3 110 1264 1 lor$gl-control : REF BBLOCR ADDRESSING_MODE (GENERAL),!Pointer to current Librarian control table 

: 11 1265 1 Lib$gl_modnamix, 'Index number for module names 

. Sam 1266 1 Lib$gl_objmodix, ‘object Library module index number 

s 115 1267 1 Lib$gl_ob gsdix. ‘object Library gsd index number 

: 116 1268 1 Lib$gl_modlist : VECTOR f ) 'Listhead for “‘Listonly’’ name List 

s 995 1269 1 Lib$al_ascbinf : VECTOR LONG), '‘Ascii/binary flags and name Length 

: 116 1270 1 Lib$gl_type ‘type of Lterary 

3 (117 1271 1 Lib$gl keysize, 'Max Length of keys in Library 

; «118 1s?6 1 Lib$gl_Llistwid, '/WIDTH-set Listing width 

3 «119 1275 1 Lib$al_months : VECTOR 4 LONG], ‘Address of ASCIC month name strings 

: 120 1274 1 Lib$gi_ctlmsk : BLOCK [C y ‘Librarian control mask 

: 1e1 1275 1 Lib$gl_lLibfdb : REF BBLOCK, ‘FOB for Library 

3; 122 1576 1 Lib$gl_Llibct ‘Library index number 

: 125 1277 1 Lib$al_rab : BBLOCK 'RAB for 1/0 

: Se 1 a 1 t 1peet-fyenases : VECTOR C,LONG), ‘Names of Library Fypes 

: $2 : a Lib$gi_Lisfdb : REF BBLOCK; ‘FOB for Listing file 

; Ht +4 1281 1 EXTERNAL LITERAL 

: 128 1 8¢ 1 Lbr$_nomtchfou, 'No match found 

: i 12835 1 Lbr$_nulidx, ‘Null index 

; 130 1 rf: 1 Lib$_histerr, ‘Error with update history access 

: 131 1285 1 Lib$"initerr, ‘Error initializing Library 

3 136 1 Hy] 1 Lib$_indexerr, ‘Index error 

. on 1287 1 LibS_mhderr ‘Module header error 

> 134 1288 1 Lib$-nomtchfou, iNo match found 

3 135 1289 1 Lib$_Lookuperr, ‘Lookup error 

; 1% 944 i Lib$_ faofail; 'FAO failure 


M 
1er8ee= 198s 3:48:09 Ee taraR’SReaiiery teases 


i3 138 1 3 1 FORWARD ROUTINE 
is 139 1295 1 display history, ‘Display Library update history 
; 140 1294 1 display_luhnames, !Display modules names in LUH record 
13 141 sce display_object, 'Display one object module 
l3 He 1296 1 display _macro, ‘Display one macro 
ls; 16 1297 1 check date, ‘Check dates for BEFORE and SINCE 
ls 164 1298 1 List_header 'List the header of a library 
(> 145 1299 1 List-old_lié, iList old format library 
i; 146 1300 1 display globals, ‘Display global symbols 
3; 147 1301 1 Listselectdmods, 'List selected modules only 
1; 148 1308 1 Lib_faol ‘format Line with error handling 
(> 149 130 1 output_listline; iwrite Listing line 
; 150 1304 1 
: 151 1305 1 BIND ROUTINE 5 
; 152 1308 1 display_shrstb = display_object, ‘Same routine as objects 
s 155 1307 1 display_usr = display_macro, ‘User defined Libraries 
: 1546 1308 1 display_text = display_macro, ‘all the same to list so 
s 155 1309 1 display_help = display_macro; 'Use the same routine 
; 156 1310 1 
. ar 1311 1 OWN 
; 338 isle 1 Line_width, 
; 19 1313 1 pronsicrynt. !Counter for global symbol ‘isting 
: 160 1314 1 eader_listed, ‘True if header Listed 
; 66) 1315 1 histhdr_ Listed, ‘True if history header Line printed 
3 6162 1316 1 curmatchdesc : REF wap, 'Pointer to current key descriptor 
: 163 1317 1 Lib$al_luhop : VECTOR (3,LONG) 
: 6164 1318 1 INITIAL (CSTRING (‘deleted '), 
s 165 1319 #1 CSTRING (‘inserted') 
: 166 1320 1 CSTRING ('replaced')5, 
3 167 1321 1 outdesc : BBLOCK [dsc$c_s_bin], ‘Descriptor for output buffer 
: «168 1322 1 outsize, ‘Length of FAO'd string 
; 198 1367 outputbuffer : REF BLOCK C,BYTE); '‘Pointer to output buffer 
: 171 1325 1 BIND : 
eels 1326 1 fao_dirnamtyp = $descriptor (‘Directory of !AC Library !AS on 120<!2D!>"), 
; VWs 1327 1 fao_linel = $descriptor (‘Creation date: !20<!ZD!>!6* !10<Creator: :>tAC") 
: «176 1328 1 fao_line = $descriptor ("Revision date: !20<!%D!>!6* !18<Library format: '>!UL.!UL"), 
s 75 1329 1 fao_line = $descriptor ('!20<Number of modules: !>!5UL!17* !18<Max. key Length: !>!UL"), 
: 176 1330 1 fao_line4 = $descriptor (''20<Other entries: '>!5UL!17* !28<Preallocated index blocks: !>!5UL"), 
; 177 1331 1 fao_lineS = $descriptor ('!29<Recoverable deleted blocks: !>!5UL!8* !28<Total index blocks used: 
; i 1336 7 fao_lineé = $descriptor ('!31<Max. Number history records: !>!5UL!6* !26<Library history records: 
3; «179 1335 ? fao_line? = $descriptor (‘Library is in DCX data reduced format’), 
; 180 1334 1 fao_modhdr = $descriptor ("!AS'), 
; «(181 1392 1 fao_modnamhdr = $descriptor Ba sede 'AS') 
: 136 1336 1 ao_modhdr2 = $descriptor ('!51<!AS!> RFA !UL.:!4<!UW. >C1 KW) ") 
s 18 1337 1 fao_modnamhdr2 = $descriptor Bic edyt 'S1<!AS!> RFA tUL.: i4<iuw. tot ixw)*) 
; «184 1338 1 fao_fulobjhdr = $descriptor ("!16<!AS!> Ident !16<!AC!> Inserted !20<!%D!> !UL symbol !%S'), 
: 185 1339 1 fao_fulobjhdr2 = $descriptor ('!AS Ident !AC Inserted !20<!2D!> !UL_ symbol!%S'), 
; 186 1340 1 fao_fulobjhdr5 = $descriptor (°!16<!AS!> Ident !16<!AC!> Inserted !20<!2D!> 'UL symbol !2S RFA !UL.:!4<! 
; 187 1341 1 fao_fulobjhdr4 = $descriptor ('!AS [cone 'AC Inserted !20<!2D!> 'UL symbol!2S RFA !UL.:!4<!UW.!>C'xw)") 
: 188 136 1 fao_fulobjhdr5 = $descriptor (‘Module !16<!AS!> Ident !16<!AC!> Inserted 120<!%D!'> UL symbol !%S'), 
3; «189 1343 1 fao_fulobjhdr6é = $descriptor ("Module !AS Ident !AC Inserted !20<!ZD!> !UL symbol!%S"), 
: 190 1344 1 foo_gpmatch = $descriptor (rr ext '6OXL"), 
; #6191 it re 1 fao_Tlags = $descriptor (Tt AS ; 
; bd 1 ry 1 fao_lblankline = $descriptor (''/"), 
3; «19 1347 1 fao_selsrc = $descriptor (' Selectivel searched}. 
3: 194 1348 1 fao_fulmodndr = $descriptor ('!16<!AS!> inserted !20<!ZD!>"), 
| 
| 
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Rs 600 1e28ee-13be 95:38:09 Ee Tarar’snedi tert 16 65541 9 125 
36195 1349 1 fao_fulmodhdr2 = $descriptor ('!AS inserted !20<!%D!>') 
3) 196 1350 1 fao_fulmodhdr$S = $descriptor ('!16<!AS!> inserted 1 30<! £D!> RFA 'UL.:!4<!UW.1>C!KW)"), 
f 488 1802 1 fabepueegner’ = gdescriptor fas inserced fabetab!> | Hevetbabitbenlitdlndid 
/: 199 1 38 1 fao- luhrechdr = $descriptor ("!AC !A ui nodute' 8S on LC ae ) 
'; 200 1354 1 fao_oldcredat = $descriptor (‘Library crea.ed b vx12 fee 
is gol bo fao_oldlstupd = $descriptor (‘Last update was Mustace 2b i2u:f2e:!2L") 
: $06 1356 (1 fao_oldmnt = $descriptor CTSOL modules allocated, UL used, iSUL free’) 
: $e tS ae Se eR + 4 a 9 sttocated, !SUL used, saat) free’), 
: soe ' 2b : fao. -0{ gob) fut = gqeeeripter ps igelieTs Ident !16<tact> In inggrted TPES iP 
: ao_oldmacful = $descriptor nserte 
3 $09 1361 1 fao ~Oldobs ful = Sdescriptor ("!16<!AS!'> Ident Mectacio ia inserted, Mbt i ba tHe RFA PUL, !4<!UW.1>Ci KW"), 
; 208 1 66 1 fao_oldmacful2 = $descriptor C"it6<iasio neertse '11<!2D!> R :'4<!UW.P>Ci aw) ") 
; sv 1307 Lisdefext = $descriptor ("SYS$DISK:CJ.LIS'), !Default iTettan” extension 
: it 1365 1 Lis_dispatch = PLIT ( 
; $i¢ 1366 1 display_u ! usr defined Library 
Pi 1a | dscetégts Hebden 
: 215 1369 1 display"help,’ | 
; 216 1370 1 display_text, 
: ole 1353 aig a | 
: 31 i373 1 : 
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GLOBAL ROUTINE Lib_list lib = 
BEGIN 


'+¢ 
\ 


i FUNCTIONAL DESCRIPTION: 

i CALLING SEQUENCE: 

i INPUT PARAMETERS: 

NONE 

IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
NONE 


a ee 


LOCAL 
status, 


header_Listed 


IF .lLib$Sgl_listwid NEQ 0 


outdesc 


CPI APIPIPIPININIPONYPINININOPYNINOPININYPYIPINIDINYPINININIPYINIPONINYNINPI PUPPY PO NONIPIPGPOPoPonononofnonrornononys — 
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BEGIN 


AX-11 Bliss-3 
LIBRAR.SRCJLI 


headary : BBLOCK Clbr$c_pagesize]; !Return Library header info here 


IND 
Lisdefnam = Lib$gl_lisfdb Cfdb$l_defext] : BBLOCK; 


'No header listed yet 
up default output file 


false; 
CHSMOVE (dsc$c_s_bln, Lisdefext, Lisdefnam) 
am], !Open the output file 


m); 'Set 
perform (Lib_open_out (.lib$gl_ b$gl_lLibfdb Cfdb$t_n 


true, line_width)) 
THEN Line_width = .Lib$gl_listwid; 


Line_width = MIN (Lib$c_lisrecing, .line_width); 
perform (Lib_get_mem (Lib$c_lisreclng*2, out 


initerr, 1, lib git 
outdesc FéscSu_ length) = Libgc_lisrec ngt 
dsc$a_pointer] = .outputbuffer; 


'#2 to allow for long filenames 


: If /HISTORY requested, then only print List if /FULL also 


iF (.LibSgt_ctlmsk Clib$y history] 


n AND .LibSgl_ctlmsk Clib$v_fullJ) OR 
‘ NOT .Li7b$gl_ctimsk (Tib$v_history] ) 


i 
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yoe=b08 1278671 382 93:98:09 LIBRAR.SRCILISTLIB.B32;1 . (3) 
; 278 1431 ; IF .LibSgl_ctlmsk Clib$v_only] ‘Listing selected modules? ; 
: ey 14 § THEN Listselectdmods () ! then do it : 
; 280 14 4 ELSE BEGIN 3 : 
; 281 1434 4&4 status = lbr$get_index (Lib$gl_libctl, Lib$gl_modnamix, ; 
; $e 1435 4 -lis_dispatch C.Lib$gl_typeJ); ; 
; 28 1o98 4 IF NOT .status ; 
; «6284 1437 4 THEN : 
; 285 1438 4 IF .status NEQ Lbr$_nulidx : 
; 286 1439 4 THEN SIGNAL (Lib$_indexerr, 1, LibSgl_Libfdb Cfdb$l_namdesc], ; 
; ear 1440 4 -Status, .lbr$gl_rmsstv); ‘ 
; 288 1441 3 END; ‘ 
; 289 144g 3 END; : 
; 290 144 ' ; 
: 291 1444 2! List header now if it didn't get out : 
; soe 1445 2! : 
; 1446 2 IF NOT .header_listed ; 
; 294 1447 2 THEN perform (List_header ()); : 
3; “ve 1448 2! : 
; 296 1449 2! List the update history if requested : 
: 297 1450 2! . 
: 298 1451 2 histhdr listed = false; ; ; 
: 299 145¢ 2 IF LibSgl_ctlmsk ClLibSv_history] ! If /HIST : 
: 300 145 ¢ THEN ; 
: 301 1454 BEGIN : 
; 302 1455 3 ! : 
: $07 1028 3 For each LUH record in the Library, call display_history ‘ 
; 305 P1458 3 perform ( LorSpet history (Lib$gl_libctl, Geet ay mietery ), : 
: 306 1459 3 Lib$_Risterr, 1, Lib$Sgl_libfdb Cfdb$l"namdesc)); : 
; 307 1460 2 END; : 
; 308 1461 2 : 
3; ww 1406 2 Lib_close_out (.lib$gl_lisfdb, false); ‘close output file ; 
; 510 1463 2 Lib _free_mem (Lib$c_lisrecing, .outputbuffer); 'free the memory : 
s 2 1464 2 RETORN true ; : 
; 312 1465 1 END; ‘Of Lib_list_lib : 
-TITLE LIB_LIST : 
-IDENT \v0%-000\ : 
-PSECT SPLIT$S,NOWRT,NOEXE,2 : 
08 00000 P.AAA: .BYTE 8 ; : 
20 64 65 74 65 6C 65 bs BReRe ASCII \deleted \ 3 : 
8 00009 P.AAB: .BYTE : . 
64 65 74 72 65 73 6E 69 QOO0A ASCII \inserted\ : 3 
98 82016 P.AAC: .BYTE : : 
64 65 61 6C 70 65 001 ASCII \replaced\ é ; 3 
41 21 20 66 6F 20 79 72 6F 74 63 65 72 69 44 QO01B P.AAE: .ASCII \Directory of !AC Library !AS on !20<!2ZD!\ ; : 
6F 20 53 41 21 20 79 72 61 72 $6 $3 6C $8 63 Oa : F 
21 44 25 21 0 32 21 20 6E€ 000359 3 3 
3 ORee eASCII \>\ ; ; 
68 008 0044 P.AAD: .LONG 41 : ; 
0 -~ . Ree eADDRESS P.AAE | ; 3 
$9 3A 65 74 61 ¢ 0 6E 6F 69 74 $3 5 4 4C P.AAG: .ASCII] \Creation date: !20<!2%D!>!6* !10<Creator\ ; 3 
1 20 2A 36 21 3E 21 44 25 21 $6 ° 2 4 4 Rae ; : 
72 6F 74 61 65 4 C 30 31 OQO06A : : 
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LIBRAR.SRCJIL 


-PSECT SOWNS,NOEXE,2 


00000 LINE_WIDTH: 


00004 GLOBAL COUNT: 
00008 HEADER a ty 
QOO0C HISTHDR_LISTED: 
00010 CURMATCHOESC. 


-BLK 
00014 LIBSAL _LUHOP: 
-ADDRESS P.AAA, P.AAB, P.AAC 


- fF PF PE HS 


00020 OUTDESC: -BLKB g 
00028 OUTSIZE:.BL 4 
0005C QUIPUTBUFFER: 

-BLKB 4 
FAO_DIRNAMTYP= P.AAD 
FAO-LINE1= “AF 
FAQ“LINE@= -AAH 
FAO-LINE5= P.AAJ 
FAO-LINE4= TAAL 
FAO-LINES= P.AAN 
FAQ“LINEG= "AAP 
FAO-LINE7= PAAR 
F AOMODHDR= PL AAT 
F AO“ MODNAMHDR= P. AAV 
F AO-MODHDR2= P. AAX 
F AO“ MODNAMADR2= P.AAZ 
F AQF ULOBJHDR= ‘ 

F AO~FULOBJHDR2= P. ABD 
F AO-FULOBJHDR3= P.ABF 
FAO” FULOBJHDR4= P. ABH 
F AO-FULOBJHDR5= P.ABJ 
F AO“ FULOBJHDRO= P.ABL 
FAO-GSMATCH P. ABN 
FAOFLAGS= P. ABP 
FAO” IBLANKL INE= P.ABR 
FAO-SELSRC= P.ABT 
F AO~FULMODHDR= P. ABV 
F AO-FULMODHDR2= P. ABX 
F AO-FULMODHDR3= P.ABZ 
F AO" FULMODHDR4= P-ACB 
FAO-HISTLINE= P-ACD 
F AO LUHRE CHDR= P.ACF 
F AOOLDCREDAT= P.ACH 
F AO-OLDLSTUPD= PLACJ 
F AO-OLDMNT= PLACL 
FAOOLDGST= P.ACN 
FAO-OLDELSPC= P.ACP 
F AO-OLDOBJFUL= P-ACR 
F AO“OLUMACFUL= PACT 
FAQOLDOBJFUL2= PLACV 
F AO™OLDMACFULo= PL ACK 
LISDEFEXT= P.ACZ 


(3) | 


2 
LIB_LIST 1b-se 1984 02:01: AX=11 Bliss-32 V4.0-742 Page 13 
Voe=000 1 ~3007 138i Ht LIBRAR.SRCILISTLIB.B32:1 ° (33 
LIS_DISPATCH= P.ADB 
-EXTRN LIB_OPEN OUT, LIB_CLOSE_OUT 
-EXTRN LIB-GET_MEM, LIB pace MEM 
-EXTRN LBRSLOORUP_KEY, CBRSGET_HEADER 
-EXTRN LBRSGET_HISTORY 
~EXTRN LBRSGET- INDEX, LBRSSET MODULE 
-EXTRN LBRSSEARCH, SYSSFAO 
-EXTRN SYSS$FAOL, LIBSBEFORE_DATE 
-EXTRN LIBSSINCE DATE, LBRSGL_RMSSTV 
-EXTRN LBRSGL_CONTROL, LIBSGL_MODNAMIX 
-EXTRN LIB$GL-OBJMODIX 
-EXTRN LIBSGL-OBJGSDIX 
-EXTRN LIBSGL-MODLISL, LIBSAL_ASCBINF 
“EXTRN LIBSGL-TYPE, LIBSGL_KEYSIZE 
-EXTRN LIBSGL-LISTWID, LIBSAL_MONTHS 
-EXTRN LIBSGL_CTLMSK, LIBSGL_CIBFDB 
-EXTRN LIBSGL-LIBCTL, LIBSAL_RAB 
“EXTRN LIBSAL~TYPNAMES 
-EXTRN LIBSGL~LISFDB, LBR$_NOMTCHFOU 
-EXTRN LBRS_NOLIDX, LIB$_HTSTERR 
-EXTRN LIBSTINITERR, LIBS INDEXERR 
-EXTRN LIBS_MHDERR, LIB$_ROMTCHFOU 


-PSECT S$CODE$,NOWRT,2 


O3FC 00000 -ENTRY LIB_LIST_LIB, Save R2,R3,R4,R5,R6,R7,R8,R9 3 1374. 
59 00006 CF 9E 00002 MOVAB LIBSGL_LISFDB, R9 : | 
58 00006 CF 9E 90007 MOVAB LIBSGL~LIBFDB, RB F | 
57 000000006 00 9€E 00 O¢ MOVAB LIBSSIGNAL, R? ; 
56 0000" CF 9€ 0001 MOVAB LINE WIDTH, R6 ; | 
SE = sFEOO «= CE. «o9E 00018 MOVAB -512TSP), SP : | 
50 69 08 C1 0001p ADDL3 #8, LIBSGL_LISFDB, RO + 1410) 
08 Ad D4 00021 CLRL HEADER LIST ; 141e | 
60 0000" CF 08 28 00024 MOVC3 #8, LISDEFEXT, (RO) > 1413) 
56 DD O002A PUSHL R6 : 1415) 
01 DD 0002c PUSHL #1 : 
7E 68 00000040 &8F C1 0002E ADDL3 #64, LIBSGL_LIBFDB, -(SP) ; 
69 DD 000 6 PUSHL LIB$GL_LISFDB F | 
0000G CF 04 FB 000 CALLS #4, LIB_OPEN_OUT ; | 
01 50 cs 003D BLBS STATUS, 1$ ; 
4 00040 RET 3 
50 00006 CF bO 00041 1$ MOVL IBSGL_LISTWID, RO > 1416 | 
93 1 0046 BEQL : 
66 D 4 MOVL RO, LINE_WIDTH + 1417) 
50 $6 D0 0048 2$: MOVL LINE WIDTH, RO : 1419. 
00000084 aF 0 D1 0004 CMPL =O, -F132 ; | 
4 15 8 BLEQ 3$ 3 
50 84 BF OA MOVZBL #132, RO ; 
3 0 v0 B 3S: OVvL RO WIDTH oo 
3¢ A6 OF ( PUSHAB OUfPUTBUFFER + 1421 
7E 0108 8F %3C 0006 MOVZWL #264, -(SP) ; 
00006 CF Fe 66 CALLS # C1861 MEM ; 
11 E 68 BLBS STATUS," : 
DD PUSHL STATUS ; 
7€ 68 10 1 ADDLS #16, LIBSGL_LIBFDB, -(SP) ; 
01 DD 00074 PUSHL #1 ; 


es 
LIB_LIST 16-Sep AX-11 Bliss-32 V4.0-742 Page 14 
vou=008 e=8ep-1984 13:98:09 EC TeRAR SReSiSTL 18 85301 3) 
000000006 8F DD 00076 PUSHL #LIB$_INITERR ; | 
67 4 F 7¢ CALLS LTB$SIGNAL : 
0 A6 0198 F B 7F 4$: MOVW 12660 OUTDESC + 14 2 
4 Ab C Ag D 7 MOVL OUTPUTBUFFER OUTDESC+4 + 1423. 
0B 00006 cf 05 €1 A BBC fLMSK+3, 5$ + 1427 
6 00006 CF ES 9 BLBS tésci CTLASK® 2, 5 ; 
49 00006 CF Ss 09 BBS #5, LIBSGL_CTLMSK+3, 7$ : 1428 
07 00006 CF : E1 00098 S$: BBC #2, LIBSGL-CTLMSK+3, 6$ + 1431 
0000v CF 0 8 oN CALLS , LISTSECECTDMODS + 1432) 
50 0006 CF DO iB 6$: OVL LIBSGL_TYPE, RO : 1435) 
4 hd bp ab PUSHL LIS_DISPATCHCROJ F 
000G CF 9F 000B PUSHAB LIBSGL_MODN wIX + 1434. 
000G CF 9F 00086 PUSHAB L1BSoL agiestt : | 
000000006 00 93 EB OOBA CALLS LBR GET. INDEX : | 
20 £8 000C1 BLBS STATUS. + 1436) 
000000006 F 39 } Bate eror TATUS, #LBRS_NULIDX : 1438) 
000000006 99 DD 90Cp PUSHL LBRSGL_RMSSTV + 1440 
0 DD 000d PUSHL STATUS : | 
7E 7 10 ct 90003 ADDL 3 #16, LIBSGL_LIBFDB, -(SP) ; 1439, 
“= 000000006 t Db 90008 PUSHL #, 188, 1N INDEXERR : 
oooov tf @ oR Roe Pits HEADER LISTED, Ws i 1666 
hé 50 €9 G00eD BLBC STATUS : 
0c Ab D4 OOFO 8$: CLRL Hl STHDR_LISTED + 1451 
23 00006 CF 0 a OO0F BBC LIBSGL CTLMSK#5, 9$ : 1452 
0000v CF OF O00F9 PUSHAB OT gPtAy Hist TORY : 1459 
0000G CF 9F OOOFD PUSHAB , BSGL cis : 
000000006 00 03 FB 90191 CALLS CBRSGET. ThIstoRY ; 
sis 25 «6b Ootoe Push StArbs, edi ; 
7E 68 io ct 20100 ADDL #16, LIBSGL_LIBFDB, -(SP) ; 
000000006 8F DD 00115 PUSHL mL 18S HISTERR : 
67 04 FB 00119 CALLS LIBSSIGNAL : 
o8 Bo COIIE Busi “(ge) LISFDB ‘eves 
00006 CF 02 FB 001 p CALLS #2, LIB CLOSE_OUT : 
2¢ A6 0D 001 PUSHL OUfPUTBOFFER + 1463 
00006 ¢F * 02 fe oolse CALLS #2, CIBCPREE_MEM 
eR Be iit 


; Routine Size: 309 bytes, Routine Base: $CODES + 0000 
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| 
} 
> 314 1466 1 ROUTINE display_history ( rec_desc ) = ; 
: 915 1209 > BEGIN ——— : . | 
; «4316 1408 { : 
3; SN? 1469 : This routine is called by LbrSget history for each LUH record, ; 
; \8 1609 } It prints the library update history record in the Listing file. : 
3 0 Vong MAP : 
; 1 147 rec_desc : REF BBLOCK Cdsc$c_s_bin); ; 
; ¢ 1474 BIN PF 
,. oe 1475 luhrec = .rec_desc Cdsc$a_pointer] : BBLOCK; ; 
; 324 1or8 LOCAL : 
; 5 147 num modules; ; 
3 6 ions ; 
b. oer 147 IF NOT .histhdr_listed ; 
; 328 1480 THEN ; 
; $3 1481 BEGIN 3 
; 0 Me { ' : 
; 31 148 | Make sure that the header Line needs to be printed. } . 
3 336 1484 ' If /LIST/HIST then header has been printed. : 
3; 33 1485 ! If /LIST/HIST/FULL then header and full Library Listing has been printed ; 
3 $30 1ea8 ; : and the Library History header Line is needed. : 
; 336 1488 IF .libSgl_ctlmsk Clib$v_full] 3 
; 337 1489 3 THEN : 
; 338 1490 4 BEGIN ; 
; 339 1491 4 perform (output_listline ()); ! Print blank Line | F 
; 340 1038 4 perform (Lib_faol (fao_histLine, outsize, outdesc)); ! Print history header Line : 
3 $03 1227 4 acvere (output_listline ()); ! Print blank Line | . 
; 305 1495 3 histhdr_listed = true; ! Only List header Line once : 
A Boras ele ant 
3; 346 1498 2 num_modules = .luhrec Clhe$w_modcnt]; ! Number of module names in update history record ; 
; «547 P 1499 § perform ( Lib_faol ( fao_luhrechdr, outsize, outdesc, : 
; 348 P 1500 uhrec bp hese yernen lon ! veer who updated Library 3 
; 349 P 1501 2 -LibSal_luhop C(.luhrec fLhe$b_modcode] - 1)], ! what kind of update | ‘ 
; 350 Pp 1206 2 »num_modules ! number of modules affected 3 
3 35) 1503 2 Luhréc the$(_time] i ! time of update 3 
3 26 1504 IF .libSgl_ctimsk Clib$v_full) : 
; * 1508 THEN ; 
3: 6354 1506 BEGIN : 
3. 399 1507 ! : 
: 356 1508 ’ List module names in LUH record 3 
s 357 1509 : The module names are stored are counted ASCII strings after the : 
; 358 1510 ! fixedsize portion of the LUH record. ; 
5 59 1511 : Locate size byte and address of module name and call display_luhnames ; 
5 0 1216 ! to print it. Then use name length to hop over it and print next 3 
3 o 1317 module name, till all have been printed. : 
; $ 1515 LOCAL : 
: 364 1218 modnamsadr ; ! Address where counted ASCII modules names begin | : 
3 365 151 modnamsadr = luhrec + Lhe$c_fixedsize; ' First module name stored after fixedsize of LUH record : 
; 366 1318 WHILE .mum_modules GTR 0 DO ! num_modules is decremented for each name Listed : 
: 7 1519 4 BEGIN ; : 
; 368 1520 4 BIND : 
; 369 1521 4 namlen = .modnamsadr : BYTE, ' namlen contains Length of module name : 
; 370 1522 4 name = ,modnamsadr ¢ 1; ! name is bound to start of string 3 


voe=600 


, 7 1523 
; if 1524 
: 7 1525 
3 74 1526 
3 75 1 7 
s 576 1528 
. oer 1 9 
: 3/8 1530 
3 79 1531 
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4 perform (display_luhnames (. * tee name) ); 
4 num_modules = .num_modules - 
4 Epgienseer = ,modnamsadr + 1 + enamlen; ! Skip past module name just listed, to the next one in 
perform (output_listline ()); ' Flush the buffer 
arrere (output_listline ()); ! Print a blank Line 
RETURN true; 
1 END; ! routine display_history 


007C 00000 DISPLAY HISTORY: 
. WORD 


56 0000v CF 9E 99002 MOVAB OUTPUT_LISTLINE, R6 : 
5 0000' CF 3 000 MOVAB HISTHDR_LISTED, R5 ; 
50 04 AC 00 0000C MOVL  REC_DEST, RO : 
52 04 AO DO 00010 MOVL 4 (RO), R2 ; 
26 65 £8 00014 BLBS § HISTHOR_LISTED, 2$ ; 
1E 0000G CF E9 00017 LBC  LIBSGL_CTLMSK+2, 1$ ; 
66 00 FB 0001C¢ CALLS #0, OUTPUT_LISTLINE ; 
74 0 ; 0001F LBC = STATUS, 6$ : 
16 AS OF 00022 PUSHAB OUTDESC : 

1¢ a5 9F 000 PUSHAB OUTSIZ ; 

0000" CF 9F 00028 PUSHAB FAO_HISTLINE ; 

0000v CF 03 FB 000¢¢ CALLS #3, LIB_FAOL ; 
62 50 €9 00031 BLBC STATUS, ~6$ ; 
66 00 FB 00034 CALLS #0, OUTPUT_LISTLINE : 
5C 50 €9 00037 BLBC status $~ : 
65 01 bo 0003A 1$ MOVL HISTHDR_LISTED ; 
54 08 Ag C 00030 2$ MOVZWL Sthan NUM_MODULES ; 
52 DD 00041 PUSHL gS ; 

54 DD 00043 PUSHL NUM MODULES ; 

50 A2 9A 00045 MOVZBL 10(R2), RO ; 
04 A540 DD 00049 PUSHL  LIBS$AL.LUHOP-4(ROJ ; 

ng 9F 0004D PUSHAB 11(R2) ; 

14 AS OF 90050 PUSHAB OUTDESC ; 

1c AS OOF 900) PUSHAB OUTSIZE ; 

0000" CF 9F 00056 PUSHAB FAO_LUHRECHDR ; 

0000v CF 07 FB 005A CALLS #7, -LIB_FAOL ; 
34 0 £9 0005F LBC = STATUS, "6$ ; 
2 0000G CF E 0060 BLBC 1th nCTLMSK 2, 5$ ; 
ig ¢ 6 ADDL2 NAMSA ; 

54 05 0006A 3S: TSTL ULES ; 

19 15 0006C BLEG ; 

01 A2 OF O6F PUSHAB + Tnopmansa DR) ; 

53 62 9A 000 MOVZBL (MODNAMSADR), R3 ; 
53 DD 00074 PUSHL ; 

0000v CF 08 F 0 76 CALLS #2 inbdreg'- LUHNAME S ; 
18 E 7B BLBC ; 
54 7 DECL cin MObUL ; 

52 01 A34 f ; MOVAB 1( URS) RODNAMSADRI. MODNAMSADR ; 
6 b FB 087 4$: CALLS @ ouTPuT _LISTLINE ; 
9 E A BLBC = STATUS ; 
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NE display_luhnames (namelen, nameadr) = 


AX=11 Bliss-32 V4 
LIBRAR.SRCJLISTLI 


s routine is called by the bYorery processor for each 
ule name in the LUH record when /HIST/FULL is specified. 


IF (,outsize + .Lib$gl heyscze + 2) GTRU . Line width ‘enough Line Left? 
THEN perform (output_listline ()); ‘output the Line 
CHSMOVE (.namelen, shqnener. soutdpec fdseSa_pointer)); !copy name into buffer 
outdesc Cdsc$w_length] = .outdesc Cdsc$w_length] - 


,} Taso. neypize = é; 
outdesc Cdsc$a_pointer] = oy desc qectegotaters + 
Lib gl keysize + 2; 

eysize + 2; 


‘update descriptor 


outsize = .outsize + LibSgl_ '!and Length of Line used 
RETURN true; 


END; 'Of display_luhnames 


ORD Save R2,R3,R4,R5,R6 

56 0000" CF 9€ 0000 MOV OUTSIZE, 

50 66 0000G CF C1 0000 ADDL3 LL BSGl _KEVSIZE, OUTSIZE, RO 
50 2 C€O 0000D ADDL2 #2, R 

D8 Ab 0 D1 00010 CMPL RO, LINE_WIDTH 
08 18 00014 BLEGU I$ 
0000v CF 00 FB 0016 CALLS @ OUTPUT LLISTLINE 
2D 50 E 0018 BLBC STATUS, 2$ 
FC BE 08 6c AC 28 OO1E 1$: MOVCS WNAMELEN, @NAMEADR, @OUTDESC+4 
1 00006 CF pO 00 MOVL LIBSGL_KEYSIZE, Rf 
6 Ab 00 A MOV2WL OUTDEST, RO 
5 31 C 0 E UBL2 Ri, R 
FB A 50 2 A 0 1 SuBWS #2. R QUTDESC 
50 51 F Ab Ci 00 ADDL Quipest+4 Ri, RO 
FC AG 02 A H 00 MOVAB (RO), OUTDESE+4 

50 66 51 \ 04 ADDL3 R1, OUTSIZE 
6 02- AO f 0044 MOVAB 2(RO), OUTSIZE 
0 01 p 0048 MOVL «#1, -RO 

4 00048 2%: ET 
; Routine Size: 76 bytes, Routine Base: S$CODE$ + OICC 
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v04=000 14-Sep-1984 12:38:09 LIBRAR.SRCJLISTLIB.B32;1 (6) | 
; 399 1549 1 ROUTINE display_object (keydesc, txtrfa) = 
BE Ve 
; 402 1226 : This routine is called by the Library processor for each object module. 
; 403 155 ! The information is printed in the Listing file. 
: 404 1554 : 
; 405 1555 MAP ; 
: 406 1556 keydesc : REF BBLOCK Cdsc$c_s_bln] !String descriptor 
: 407 1557 txtrfa : REF BBLOCK [rfa$c_lengthi; 
; 408 1558 § LOCAL . 
; 409 1559 shrgstring : VECTOR Csym$c_maxing+1,BYTE], ‘Buffer to hold formatted gsmatch 
: ret 1299 ; por pecene : BBLOCK Cdsc$c_s_bln], 'Descriptor for shrgstring 
; aostr, 
: tig 1308 § header : BBLOCK Clbr$c_maxhdrsiz); 'buffer to hold header 
> 414 1564 2 IF NOT .header_listed ‘If tor ery header not listed yet 
; 415 1565 2 THEN perform (Tist header ()); i then do it now 
> 416 1566 2 IF .Lib$Sgl_ctlmsk LibSv_fulld : 'Full Listing? 
3 417 1567 2 OR pLibsgt ctlmsk Clib$v_before] OR .LibSgl_ctlmsk ClibSv_since] 
; 418 1568 3 °OR (.LibSgl_ctlmsk Clib$V_names ! or Listing global symbols 
: 419 1569 3 AND NOT .LibSgl_cflmsk Clib$v_oldlib}) ! and not old format Library 
: 420 1570 3 THEN BEGIN 
5 421 1571 3 LOCAL : 
: 422 1572 3 hdrdesc : BBLOCK Cdsc$c_s_bln], ‘descriptor for header buffer 
3 $87 1307 ; hdrlen; ‘Length of header read from file 
> 425 bie Be hdrdesc Cdsc$w_length] = Lbr$c_maxhdrsiz; ‘set up header buffer descriptor 
: 426 1576 3 hdrdesc Cdsc$a_pointer] = header; 
: 427 P1577 3 rms_perform (lBr$set_module (Libg$gl Libctl, .txtrfa, hdrdesc, hdrlen), !Read the module header 
: 428 P1578 3 ib$S_mhderr, .L He rmsstv, 2, 
; oes Ht ta ; ekeydesc, Lib$gl_libfdb Cfdb$l_namdescJ); 
3 $3! 136! H IF .libSgl_ctlmsk Clib$v_before] OR .Lib$gl_ctlmsk Clib$v_since] | 
; $32 1267 ; IF NOT check_date ( header Cmhd$l_datim] ) THEN RETURN true; ! if dates don't match, give 
> 435 1585 3 IF Teh +4 aa enae Clib$v_ full) 'Full Listing 
> 436 1586 4 THEN BEGIN : 
s 637 1587 4 IF Spee cttaek Clib$v_shrstb] '‘If this is a shr image stb Library 
: 438 1588 5 THEN BEGIN ; 
: 439 1589 5 shrgsdesc CdscSw_length] = sym$c_maxlng; 'Set up descriptor for buffer 
; 440 1590 5 ghrgodese Cdsc$a_pointer] = shrgstring f1); 
3 441 1591 5§ SYSSFAO ‘feo_gsmetch. apr gedes shrgsdesc, ‘!Format the GSMATCH 
3; 44 1396 2 - (header (mhd tobi {dent} < 4,8.0> !s*Needs symbols** 
; 159 (header mhdSt ob ident})< -34,02 ; 
3 rt 1298 ? shrgstring (6) = -shrgsdesc [dsc$w_length]; !Set length of formatted string 
: 446 1596 4 IF NOT .Lib$Sgl_ctlmsk Clib$v_address] 'If not printing RFA‘s 
3; 447 1597 5 THEN BEGI 
: 448 1598 6 faostr = (IF .Lib$gl_ctlmsk Clib$v_names) 
> 449 1599 6 THEN fao_fulobjhdr 
; 450 1600 5 FUSE fao_fulobjhdr); 
> 451 1601 § IF .keydesc dsc$w_ Length GTR 15 ' but if module name 
; «45 1686 5 OR .header CahdSb_ob) { tng) GTR 15 : ! or ident larger 
3; 43 16035 6 THEN faostr = (IF .Li pat ct lask Clib$v_names] 
3 454 1604 6 THEN fao_fulobjhdr 
; «64455 1605 5 ELSE fao_fulobjhdr2); 


3 
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Hbe7000 14-Sep-19 4 93:98:09 LIBRAR.SRCILISTLIB.B32;1 . (6) 
>; 456 1606 5 IF .LibSgt_ctlmsk Clib$v_oldlib] 'If old format Library 
; 457 1607 5 THEN faostr = fao_oldobjful; 
; 458 1608 2 END 
; 459 1609 ELSE BEGIN 'Printing RFA's 
; 460 1610 5 faostr = fao_fulobjhdr3; 
: 461 1611 IF .keydesc Cds edu. length) GTR 15 
; re | 1ol¢ OR .header Cmhd$b_objiding] GTR 15 
; 46 161 THEN faostr = feo fulobjhdr4; 
> 464 1614 IF .LibSgl_ctlmsk CLiBSv_oldlib 
>; 465 1615 5 THEN faostr = fao_oldobjful2; 
; 466 1616 4 END; 
: 467 1617 4 IF NOT .Lib$Sgl_ctimsk Clib$v_oldlib] ‘ 
: 468 P 1618 4 THEN perform (Tib_faol (.faoStr, outsize, outdesc, 'Format the Line 
; 469 P 1619 4 ekeydesc 
: 470 P 1620 4 CIF .LibSgl_ctimsk Clib$v_shrstb] THEN shr string 
> 471 P 1621 4 ELSE header Cmhd$b_objiding]), 
3s 467 Pp lose 4 header Cmhd$l_datim] 
s Or P 1623 4 -header mndsl-retent-1, -txtrfa Crfa$l_vbnJ 
: 474 1624 5 .txtrfa (rfaSwooffset], .txtrfa Crfa$w_offseti)) 
; 475 P 1625 4 ELSE perform (Lib_faol (.faostr, outsize, outdesc, ; 
: 476 P 1626 4 -keydesc, header Cmhd$b_ob iding) header [mhd$i_dat im], 
3 «477 P 1627 4 -txtrfa Ertasi_vbnd. .txtrfa Cr a$w_offset . 
; 478 1628 4 .txtrfa (rfa$w_offset])); 
: 479 1629 4 IF .header (mhd$v_selsrc] 'If this is selctively searched module 
; 480 1630 4! OR .header Cmhd$v_objtirJ 
; 481 1631 5 THEN BEGIN 
; 482 1632 5 IF .header Cmhd$v_selsrc] : 
; 483 1633 5 THEN perform (Lib_faol (fao_selsrc, outsize, outdesc)); 
; 484 1634 5! IF .header Cmhd$v_objtir _ If module has TIR records 
; 485 1635 5! THEN perform (Lib_faol (fao_hastir, outsize, outdesc)); 
> 486 1636 4 D; 
: 487 1637 4 END 
: 488 1638 2 END; 
: 489 1639 IF NOT .Lib$gl_ctlmsk Clib$v_full] 
; 490 1640 THEN BEGIN 
> 491 1641 faostr = fao_modhdr; 
3 492 166g 3 IF .Lib$gl_ctlmsk ClibSv_names] 
: 493 1643 3 THEN faostr = fao_modnamhdr; 
> 494 1644 3 IF .LibSgl_ctlmsk CLiB$Sv_address) 
: 495 1645 4 THEN faostr = (IF .LT7b$gl_ctlmsk ClLibSv_names] 
: 496 1646 4 THEN fao_modnamhdr2 
: 497 1647 : ELSE fao_modhdr2); 
; 498 P 1648 perform (lLib_faol (.faostr, outsize, outdesc, -heygene 
> 499 P 1649 Ttxtrfa trfast_vbnJ. txtrfa Crfasw_otfsetd, 
: 500 1650 -txtrfa rfa$woffseti)); 
; 501 1651 END; 
; 502 1658 IF .Lib$gl_ctlmsk ClibSv_names) 'Want global symbols also? 
; 503 165 AND (globaTcount = .header ([mhd$l_refcnt] - 1) NEQ 0 ! and there are some to List 
; 504 1654 THEN 
; $05 1655 BEGIN 
; 506 1656 : 
§ 4 1o2t ? BEGIN ! Search for globals with same RFA 
; 309 1659 4 ! Search for globals with the same RFA, calling display globals for 
; 510 1660 4 ! each one found. Display_globals will return a “false” status to 
; Hy 1661 4 : terminate the search when the globals count has been decremented 
: 12 1662 4 ' to zero. Any other error is signaled: 
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LOCAL 
loc_status; 
IF NOT Tloc_status = lbr$search (Lib$gl_libctl, i ipSat objgsdix, 
— .txtrfa, display_globaTs) 
IF .loc_status NEQ false THEN 
SIGNAL (LibS_indexerr, 1, LibSgl_libfdb Cfdb$l_namdesc], 
Tloc_status, lorsgl. rmsstv); 
END; ' End of search for globals with same RFA 
IF .outsize NEQ 0 fete ‘om Line to list? 
THEN perform (output _Llistline ()); es--d 
crore (output_listTine ()); ' ol ioued by a blank Line 
TURN true 
D; !Of display_module 
OOFC 00000 DISPLAY_OBJECT: 
eWORD Save R2,R3,R4,R5,R6,R7 
57 O0000V CF 9E 00002 MOVAB LIB FAOL, R7 
56 00000000G 00 9€E 00007 MOVAB LIBSSIGNAL, R6 
55 000000006 00 9E BOON MOVAB LBRSGL RMSSTV. R5 
54 0000" CF 9E 0001 MOVAB OUTSIZE, 
53 9000G CF 9E OOOIA MOVAB LIBSGL_CTLMSK, R3 
5E FF4C CE 9E OOOTF MOVAB -180(SP) 
09 EO AS EB 00024 BLBS §_- HEADER_LIST 
0000v CF 00 FB 00028 CALLS #0, cist AEADER 
01 50 €8 ait BLBS STATUS, T$ 
04 00030 RET 
16 02 A3 €E8 00031 1$ BLBS LIBSGL_CTLMSK+2, 4$ 
12 04 A3 €8 00035 BLBS LIBSGL-CTLMSK+4, 4$ 
04 A3 01 £0 00039 BBS #1, LIBSGL CTLMSK+4, 4$ 
01 «AB 0003€ TSTB L 18S6L_ CTLASK+1 
93 19 00041 BLSS $ 
01 § He 0043 2$: BRW 23$ 
02 A 5 00046 3$: TSTB IBSGL_CTLMSK+2 
F8 19 00049 BLSS % 
04 AE 80 8F 98 0004B 4$: MOVZBW #128 DESC 
08 AE OC AE 9E 005 MOVAB HEADER ORDRDESC +4 
5E 0D PUSHL SP 
08 AE 9F 0005 PUSHAB weno ie 
08 AC DD QOOSA PUSHL TRFA 
0000G CF 9F $320 PUSHAB L1BscL biect 
000000006 00 96 FB 061 CALLS LBRSSET TRODULE 
18 0 € 0068 BLBS TUS. 
$3 dD 0068 PUSHL LBRSGL’RMSSTV 
0 OD 60 PUSH TAT 
0000G CF 10 C1 BRee ADDL Hh LIBSGL_LIBFDB, -(SP) 
04 aC DD 00 3 PUSHL YBESC 
DD 7 PUSHL 
000000006 8F DD Q007A PUSHL rs 
66 6 FB 00080 CALLS @# PTBSSiGNAL 
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0 04 a3 €E8 000 : 5$: BLBS LIBSGL_CTLMSK+4, 6$ : 1581 
OE 046 =A 01 F! 0 BBC #1, LIBSGL_CTLMSK+4, 7$ : 
146 AE OF C 6$ PUSHAB HEADER+ + 1583 
0000v CF Q1 FB O8F CALLS #1, CHECK DATE : | 
3 0 ( 90 4 BLBS RO, 7$ : | 
0196 1 00097 BRW 3 : 
03 02 =A &8 009A 7$: BLBS LIBSGL_CTLMSK#2, 8$ + 1585 
ore 1 OO9E BRW 4 : | 
29 63 05 £1 OOOA1 8S: BBC a3 LIBSGL_CTLMSK, 9$ + 1587. 
D8 AD if 80 OOAS MOVW #31, SHRG : 1589) 
DC AD E1 AD 9E 000A9 MOVAB SHRGSTRING+1, SHRGSDESC+4 + 1590) 
7E 1E AE 18 00 fF OOAE EXTZV #0, #24, HEADER+18, -(SP) + 1593 
7E 25 AE 9A 000B4 MOVZBL HEADER+21, -(SP) + 1592 
DB AD 9F 00088 PUSHAB SHRGSDESC > 1591 
D8 AD OF 00088 PUSHAB SHRGSDESC : 
0000" CF 9F 000B PUSHAB FAO_GSMATCH : 
000000006 00 0S FB 000C CALLS #5, SYS$FAO : 
£0 AD D8 AD 90 900¢ MOVB § SHRGSDESC, SHRGSTRING > 1594) 
51 02 A3 01 07 EF OOOCE 9$ EXTZV #7, #1, LIBSGL_CTLMSK+2, R1 + 1606 
38 03 =A3 01 £0 00004 BBS #1. LIBSGL_CTLASK+3, 15$ > 1596 
01 A3 95 00009 TSTB —s LIBSGL_CTLMSK+1 : 1598 
07 18 000DC BGEQ ; 
52 0000" CF 9E O00DE MOVAB FAO_FULOBJHDRS, FAOSTR : 
05 11 OO0E BRB 11$ ; 
52 0000" CF 9E OO0ES5 10$: MOVAB FAO_FULOBJHDR, FAOSTR : 
OF 04 BC B61 OOOEA 11$: MPW aKkEYDESC, #15 + 1601 
06 1A OOOEE BGTRU 12$ : 
OF 1D AE 91 OO00FO CMPB = HEADER+17, #15 + 1602 
11 1B O00F4 BLEQU 148 : | 
01 A3 95 000F6 12%:  TSTB LIBSGL_CTLMSK+1 + 1603 
07 18 000F9 BGEQ 13$ ; | 
52 0000" CF 9E O00FB MOVAB FAQ_FULOBJHDR6, FAOSTR : 
05 11 00100 BRB 14$ ; 
52 0000' CF 9E 00102 13$ MOVAB FAO_FULOBJHDR2, FAOSTR : 
25 51 E 0107 14$ BLBC ~=—._—«&R1, 18 > 1606 | 
52 0000" CF 9E OO10A MOVAB FAO_OLDOBJFUL, FAOSTR ; 1607 
16 11 0010F BRB 18$ : 1596 
52 0000" CF 9E 00111 15$ MOVAB FAO_FULOBJHDR3, FAOSTR + 1610 
OF 04 BC B1 00116 CMPW aKEYDESC, #15 + 1611 
06 1A OO11A BGTRU 16$ : 
OF 1D AE 91 O011C CMPB HEADER+17, #15 + 1612 
05 1B 00120 BLEQU 178 ; 
52 0000" CF 3 01 é 16$ MOVAB FAO_FULOBJHDR4, FAOSTR : 1613. 
05 51 f 4 17$ BLBC —-—«&aR1, 71 > 1614 
2 0000' CF 120A MOVAB FAO OLDOBIFUL2, FAOSTR + 1615 
30 08 AC DO OO12F 188 MOVL TXTRFA, R : 1624 
0 51 133 BLBS RI, 218 ; 
7E 04 Ad 3C 001 MOVZWL 4 (RO), -(SP) ; 
7E 04 AO 3C O013A MOVZ2WL 4(RO). = F 
08 BC db 13€ PUSH aTXTREA ; 
1c AE 1 ¢ 141 SUBL3 #1, HEADER+4, -(SP) ; 
24 AE SF 00146 PUSHAB HEADER® ; 
63 0 3 149 BBC r LIBSGL _CILMSK, 19$ ; 
50 EO AD f 14D MOVAB SHRGSTRING; R ; 
04 1 151 BRB 0 ; 
50 31 AE 9E 001 3 19$:  MOVAB HEADER? 17, RO : 
50 DD 00157 20$:  PUSHL R ; 


| 
| 
| 
| 
| 
| 
| 
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-$ep-1984 02:01: AX-11 Bliss-32 V4. At 
Loe=boe. eet 95 9h 89 LIBRAR-SRCILISTLIB.B32:1 2 
v04= 3 | 
KEYDESC 
mB OM BF i ? PySHAB OUTDESC ; 
~ 2 2 15F USHR #*M<R2,R4> ; 
67 OA FB 161 CALLS #10, LiB_FAOL i i 
iC 11 00164 R yrntie | 7 
i: 00 if 188 cle foveur rt )* =(SP) : ; 
sn ; BC DD O016E USHL  @TXTRFA 
$8 RE OF 194 PUSHAB HEADER+8 ; 
AE 9F 00174 PUSHAB HEADER+17 
D AE DD 00177 PUSHL KEYDESC 
4 9F OO17A PUSHAB QUTDESC | 
me 8 B gD PUSHR #*M<R2,R4> ; | 
49 ° 017F CALLS #9, LIB_FAOL : | 
$5 30 E9 O18: 228: LBC’ STATUS, 288 el 
BF —E €9 001 g BLBC = HEADER+16, 23$ : 1933, 
= ‘8 Ni SF 00189 PUSHAB OUTDESC | 
' a OF it ‘ PUSHAB FAO_SELSRC ; | 
— 5f FB 0019 CALLS #3, LIB_FAOL : | 
$3 $5 £8 0019 BLBC STATUS, ~28$ pot 
tf 02 3 FS 00198 238: BLBS LIBSGL CTLMSKe2, 298 : 1639 
- ox hs 95 BOlAS ne rere” L 1BSGL_CTLASK+1 ; fe 
OF OF bing aoe AMHDR, FAOSTR : 1643, 
2g pee | BO1Ag 25$: ied Wen iBsGL CTLMSK+3, 27% 1648 | 
é: 7 01 Rs 5S 0018) >. Yew LIBSGL_CTLASK#1 | 
OF Oe So1Bs SOY AB FAG_MODNAMHDR2, FAOSTR : | 
- edt *f Soi, BRB 273" | 
. 3 Borge 6$: | MOVAB FAO_MODHDR2, FAOSTR ae 
38 oon At 6 001C1 3g: MOVL TER As ime | 
HOR RRB Bile tii bor] 
? BD pee PUSHE KEYDESC | 
Hoe oie | Bake FE ae 
14 BB bis 5 ; 
S #7, LIB _FAOL 
67 7 F 0010 CALL 7b J6£A0 
Sn RRB RE eer - 
oF Sif aOaL3 #1, HEADER+4, Gi OBALCOUNT ; 1653 
cm mM OE a Sonn 
0000v CF 9F OOTEA PUSHAB DISPLAY GLOBALS ; ge 
+ bP iff PUSHAB LIB$GL_OBJGSDIX | 
itt tae 1F PUSHAB LIB$G L1BCTL ; | 
wes FS + 1F CALLS tt CBR SEARCH ; | 
a o 7 E BLBS  LOC_STATUS, + sese| 
D TSTL C~STATUS | 
15 1 § BEQL seri | 
bd 7 PUSHL LBRSGL_RMSSTV | 
§ D 9 PUSHL L ¢_STATUS pon S sero | 
5 a4 ADDL3 #167 LIBSGL_LIBFDB, -(S : | 
re sean ted 01 DD 0021 PUSHL #1 | 
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; Routine Size: 564 bytes, Routine Base: S$CODE$ + 0218 


984 18:3 
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srt 
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AX=11 Bliss-32 V4.0-742 


LIBRAR.SRCIJLISTLIB.B32;1 
. IB$_INDEXERR 


LTBSSIGNAL 


OUTPUT. LISTLINE 
a LISTLINE 


<r 


H R. 
voe=600. 1e=86b-1884 19:90:09 EC TeRAR’SReSL 
ROUTINE display_macro (keydesc, txtrfa) = 


3 1 1680 1 

; ¢ 1681 BEGIN 

; 1086 ! 

3 2 ¢ Mb ? ; This routine Lists one macro module 

; ea9 1888 MAP 

s Sar 1686 keydesc : REF BBLOCK Cdsc$c_s_bln] 'String descriptor 
; 538 1687 txtrfa : REF BBLOCK (rfa$c_ ~tengthd; 

; 539 1688 CAL 

; 540 1689 faoptr, 

> 541 1690 header : BBLOCK Clbr$c_maxhdrsiz]; 

3 208 1691 

; 54 1936 IF NOT .header_listed 

> 544 169 THEN perform (Tist_header ()); 'List header if not done yet 
; 545 1694 2 IF - Uibsot_ ctlmsk [lib$v_full) 

; 546 1695 OR . at ctlmsk Clib$v_ “before! OR .LibSgl_ctlmsk F'ib$v_since] 

; 547 1696 THE 

: 548 1697 ; AL 

3; 549 1698 hdrdesc : BBLOCK Cdsc$c_s_bln], 

3; 530 1699 3 hdrlen; 

; 551 1700 3 

s S32 1701 ; hdrdesc Cdsc$w_length] = Lbr$c -maxhdrsiz; 

s 555 A hdrdesc Cdsc$a_pointer] = header 

; 554 P1703 3 rms_perform (lBr$set nodule CLibbgt Libetl, .txtrfa, hdrdesc, hdrlen), 
3 395 P1704 3 Lib$_mhderr, . Sol rmsstv, 2, .keydesc, 

3 228 1783 ; Lib$Sgl_libfdb atts \=namdesc)); 

; 558 1707 3 IF .Lib$Sgl_ctlmsk Clib$v_before] OR , Libs L_ctlmsk Clib$v_since] 
; 559 1708 3 THEN if dates don't match, give up 
3 ee Ae ; IF NOT check_date ( header Emnasi _datinl } THEN RETURN true; 
3 362 1711 3 IF NOT -t ibSgl ctlmsk Clib$v_address] 

: 365 1712 4 THEN BEGIN 

: 564 1715 4 faoptr = fao_fulmodhdr; 

; 565 1714 4 IF -keydesc Tdsc$w_length] GTR 15 

; 566 1715 4 THEN faoptr = fao_fulmodhdr2; 

: 567 1716 4 IF  Libsglc ctins Clib$v_dldLlib] 

; 568 1717 4 leont? = te3. geo be 

; 569 1718 4 END 

s $70 1719 4 ELSE BEGIN 

3; «571 1720 4 faoptr = fao_fulmodhdr3 

3; S72 1721 4 IF -heydese CgscSu v_tength) GTR 15 

s S7s \7s¢ 4 THEN aoptr ao (ules hdr4; 

: 574 1723 4 IF  Libsglec ctins Clib$v_oldlib 

» S79 1724 4 faoptr = fad voldmacful2; 

; 37 1725 END; 

s S77 P 1726 perform (Lib_faol (.faoptr, ett ie outdesc, 

3; 378 P 1727 Tkeydesc header Cmhd$l_datim], .txtrfa (rfa$l von], 
: 579 1728 -txtrfa Crfa$w offset), txtrta trfasw_ offsetJ)); 

; 580 1729 END 

; «581 1730 ELSE BEGIN 

3 286 1731 faoptr = 

; 58 17 é IF Clipsal em “Tiibsy address] 

: «584 17 HEN faoptr = fao_mo 

; 585 P 1734 perform (4% faol (. - fagptr. “outs e, outdesc, .keydesc, 

5 289 P 1735 .txtrfa [rfa$l_vbn he a (rfa$w _offsetd, 

: 587 1736 ltxtrfa Crfa$wooffsetd)) 


3 
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001C 00000 DISPLAY_MACRO: 
WwW RD 


0 Save R2,R3,R4 : 1680. 
54 9000" CF OE 9002 MOVAB OUTD R ; | 
53 0006 CF OE 900 MOVAB LIBS$GL_CTLMSK, R3 : 
3E FF74 CE 3 000¢ MOVAB = : 
0 E8 A& €E8 00011 LBS HEADER LISTED, 1$ : 1692 
0000v CF 00 FB 90019 CALLS #0, LIST_HEADER + 169 
01 50 E OO1A BLBS STATUS, TS : 
4 0001D RET : 
52 08 A D0 OO01E 1$ MOVL -TXTRFA, R2 + 1728 
0c a> 6AS CE 00 BLBS §§LIBSGL_CTLMSK+2, 2$ + 1694 
08 04 Aad EB 00026 BLBS LIBSGL~CTLMSK+4, 2$ + 1695 
03 046 A3 01 £0 002A BBS #1, LIBSGL_CTLMSK+4, 2 : 
00B1 31 O002F BRW 10$ : 
04 AE 80 8F 9B 000 é 2$ MOVZBW #128, HDRDESC : 1701 
08 AE 0C AE 9E 0003 MOV HEADER, HDRDESC+4 : 1702 
SE OD 9005¢ PUSHL SP > 1705 
08 AE 9F O003E PUSHAB HDRDESC ; 
08 AC DD 00041 PUSHL TXTRFA : 
00006 CF 9F 00044 PUSHAB LIBSGL_LIBCTL ; | 
000000006 00 04 FB 00048 CALLS #4, LBRSSET_MODULE ; | 
20 50 €8 0004F BLBS = STATUS, : 
000000006 00 DD 90058 PUSHL LBRSGL_RMSSTV : | 
0 DD 0005 PUSH A ; 
7E 00006 CF 10 C1 0005A ADDLS #16, LIBSGL_LIBFDB, -(SP) ; 
04 AC DD 00060 PUSHL KEYDESC ; 
02 DD 00063 PUSHL ; 
000000006 8F DD 00065 PUSHL #LIB$_MHDERR ; 
000000006 00 06 FB 0068 CALLS #6, LIBS$SIGNAL ; 
05 04 A3 €8 00072 3$ BLBS §LIBSGL_CTLMSK+4, 4$ + 1707 
OE 04 Ad 01 al 0076 BBC #1, LIBSGL_CTLMSK+4, 5$ ; 
146 AE 9F 0007B 4$ PUSHAB HEADER+ : 1709 
0000v CF gi Fe O07E CALLS #1, CHECK DATE : 
03 0 E 008 BLBS RO, 5$ ; 
0086 31 0086 BRW 1 ; 
1C 03 «AB 01 £0 008 5$ BBS #1, LIBSGL_CTLMSK+3, 7% : 1711! 
50 0000' CF 9E MOVAB FAO_FULMODADR, FAOPTR : 1713) 
OF 04 BC 81 a8 CPW aKEYDESC, #15 : oe 
50 009 as 99 MOVAB FAO_FULMODHDR2, FAOPTR : 1715 
2 As ? 09 6$: 'siB BSGL_CTLMSK+2 > 1716 | 
50 0000" ct 1 A MOVAB FAO_OLDMACFUL, FAOPTR : 1717 
A 1 A BRB 9$ : 1711 
50 0000" CF i AA 7$: MOVAB FAO_FULMODHDR3, FAOPTR ; 1720 
OF 04 BC ; AF CMPW aKEYDESC, #15 : 1721 
B 83 BLEQU 8S ; 
50 0099" CF 3 8 MOVAB FAO_FULMODHDR4, FAOPTR : 1738 
A3 95 OOOBA 8$: TSTB = LIBSGL_CTLMSK+2 : 17 
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h date} ! ond 
LSSU .LTb be tore gate Chigh_date]) 
OR ((.date thigh date 
EQLU .Lib$beTfore Gate Chigh_date]) ’ 
AND (.date Clow_date 
LSSU .lLib$before_date Clow_dete])) 


earlier = TRUE; ' Set /BEFORE satisfed. 


640 
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' 
i If the user said /SINCE, and the date is later than the specified date, then 
: set the Boolean indicator that /SINCE was satisifed. 


; 3 1740 1 ROUTINE check _date (date) = 

; 39 1741 1 S-e=- 

> 594 \7h6 1} 

; 595 1745 1°! Functional description 

; 596 1744 1! 

; O97 1745 1! This routine checks a single date against the /SINCE and /BEFORE 

; 598 1766 1: qualifiers and returns whether it matches the date specification 
; 599 1747 1! or not. 

; 600 1748 1! 

; 601 1749 1°! Input parameters 

3; 60 1750 1! 
; 60 179) 3 3 date - Address of date to check 

; 604 1736 1! Lib$before_date - Date specified on /BEFORE qualifier 

; 605 1733 LibSsince_ date = Date specified on /SINCE qualifier 

; 607 1755 1 ! Routine value | 
; 608 1736 1! 

; 609 1757 1! True if dates match, else false. 

; 610 1758 1! | 
; 611 1759 1 leee- 

3 ol¢ 1760 BEGIN 

>; «661 1761 
; 614 1096 MAP 
3 6619 176 date: REF BBLOCK; ! Date to check against 
3; 616 1764 
3; 617 1765 LOCAL 

; 618 1766 earlier, ' Boolean, says /BEFORE was true 

; 619 1767 2 later; ! Boolean, says /SINCE was true 
; 620 1768 § 

; 621 1769 CRO 

; 622 1770 high_date = 4, 0, 35: 0%, ! High-bits in specified date 

; $5? 177) low_date = 0, 0, 32, 0%; ! Low-bits in specified date 
3 re 1598 earlier = NOT .Lib$gl_ctlmsk Clib$v_before); ' Assume no matches | 
: os6 Were later = NOT .Lib$gl_cflmsk Clib$v_since); ! for both /BEFORE and /SINCE. 
; 628 1776 } 

3; 629 177 ! If the user said /BEFORE, and the date is previous to the specified date, 

; $30 HA then set Boolean indicator that /BEFORE was satisfied. 

: 63 178 

; 638 HA | if -LibSgl_ctlmsk Clib$v_before] ! Lf /BEFORE was specified, 

; 635 178 IF (.date Chig dates are LSSU 

3; 6 17 

3; 6 17 4 

3; 8 17 4 

5 © 17 4 

3 17 3 

5 17 

3 17 

3 17 

; 17 

3 17 

: 17 

; 17 

: 17 
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; Routine Size: 85 bytes, Routine Base: S$CODE$S + O55F 


; 649 1797 IF .Lib$Sgl_ctlmsk Clib$v_since] ! If /SINCE was specified, 
; 650 1738 THEN 
; 651 179 IF (.date Chigh date] ! and dates are GTRU 
; 626 1800 GT at rb$s ince dgte Chigh_date]) 
3 6) 1801 4 R ((,date Fhigh.. da 
; 654 1806 4 EQLU .Lib$since_date Chigh_date]) 
3; 655 1805 4 AND (.date Clow_date) 
; 656 1804 GTRU .Lib$since_date Clow_date])) 
s 697 1805 N 
3 028 1308 later = TRUE; ' Set /SINCE satisfied. 
; 660 1808 RETURN .earlier and .later; ! True only if both true 
; 661 1809 
3 662 1810 1 END; 
| 
000C 00000 CHECK_DATE: 
-WORD Save R2,R3 : 1740 
53 00006 CF 9€ 90002 OV LIBSGL _ CTLMSK+4, R3 ; 
50 63 01 00 EF 0000 EXTZV # Ps a itty CTLUSK+4, EARLIER 3; 1773 
50 50 D2 0000C MCOML EARLIER, ; 
52 63 01 01 EF QOOOF EXTZV #1, #1, “ ies6L CTLMSK#6, LATER 3 1774 
32 3 be 00014 MCOML LATER, ; 
1 63 €9 00017 BLBC tapsel ET LASK+4, 2s 3; 1781 
51 04 AC DO OOOIA MOVL DATE 3: 1783 
0000G CF 04 Al D1 OOOI1E CMPL 4(R15, LIBSBEFORE _DATE+4 3: 1784 
09 1F 0G024 BLSSU _1$ 3 
OA 12 00026 BNEQ 2$ 3 1786 
0000G CF 61 01 4 8 CMPL (R1), LIBSBEFORE_DATE ; 1788 
03 1€ 00020 BGEQU 2$ 3 
50 01 vO 44 F 1$: MOVL #1, EARLIER 3; 1790 
18 63 01 €1 00032 2$: BBC A CiBsoL _CTLMSK+4, 4$ 3: 1797 
51 04 AC DO 00036 MOVL DATE : 1799 
00006 CF 04 Al D1 OOO3A CMPL PRIS. LiessiNce _DATE+4 : 1800 
09 1A 00040 BGTRU 3$ 3 
OA 12 00042 BNEQ 4$ 3 1802 
0000G CF 61 D1 00044 CMPL (R1), LIBSSINCE_DATE : 1804 
03 1B 00049 BLEQU 4§$ 3 
52 01 + 0048 3$: MOVL #1, LATER ; 1806 
51 52 D2 OO04E 4$: MCOML LATER, R1 > 1808 
50 51 cA 0051 BICL2 R1, RO ; 
4 00054 RET 3 seen 


ISrseort9Bs 03:04: 


X=1 
IBR 


itt 


'Flag header prenes 
'Get the Fesare header 


‘Format the Line 
! include now date and time 


1811 1 ROUTINE List header = 
11g, 8 en 
Bie This routine displays the module header 
181 BIND 
eit header = .lbr$gl_controlClbr$l_hdrptr) : BBLOCK; 
1819 LOCAL 
13 ’ headary : BBLOCK Clbr$c_pagesize); 
18 ¢ header_Llisted = rye 
18 IF LBS L qe tinsk (ibsy -oldlib) iIf old libra 
1824 THEN N List_old_lib"(); i Then 0 do that 
P 1825 tne MY (tbr$get cheader (LibSgl_Libetl, headary) 
1826 Tib$_indexerr, 1, Lib$gl_libfdb Cfdb$l_namdescJ); 
1827 Lib$gl_ “eee = ‘uaalats Lhi$l_typel; 
P 1828 perform ip b, faol (fae _dirnamtyp, outsize, outdesc, 
Pp Ht bSal Fyenange P heabbty” Lhi$l_typell, 
sey $ iibgot Tibfdb Cfdb$t_namdesc), 0)J; 
1836 § List data from header 
P 1834 2 perform (Lib_faol (fao_linel, outsize, outdesc, 
1332 2 headary Clhi$l-credat], headary Clhi$t_lbrver])); 
P 1837 perform (Lib_faol (fao_ Line’. outsize. outdesc 
P 1838 headary Clhi$l~updt ia) headary Cihi$(_majorid), 
azn wheadary Clhi$T_minorid))); 
P 1841 § perform (Lib_faol (fao_line3, outsize, outdesc, 
1366 § eheadary Clhi $T_modcnt " Libggl_ keysize)); 
P 1844 perform (Lib_faol (fao_line4, quesize. outdnne 
P 1845 eheadary CLhi$T_ idxcnt pepdary Lhi$t_modentd, 
1308 § eheadary Clhi$l"hipreal] - 1)); 
P 1848 perform (Lib_faol (fao_line5, outsize, outéen c 
Hh eheadary C Cihi$T_freebtk, -headary Lhist_ idxplks])); 
P 1851 perform (lLib_faol (fao_line6, outsize Sutsens 
1836 eheadary Cihi$T_maxluhrec " -headary (nist _numluhrec))); 
1854 IF .headerClhd$l_dcxmapvbn] NEQ 0 
1855 THEN 
1326 perform (lib_faol (fao_line7, outsize, outdesc, 0)); 
1858 RETURN” (output_listline ()); ‘Blank Line at the end 
1859 Ab N true 
1860 !Of List_header 


001C 00000 LIST_HEADER: 
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LIBRAR.SRCILISTLIB.B32;1 


LIB_FAOL, R4 

yT ESC, R3 

-512(SP5, SP 
Gt _ CONTROL 
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; Routine Size: 


289 bytes, 


4C 


64 
08 
0000v CF 
03 
50 


Routine Base: 


08 
0000" 


OW11OMOE- PUN OMOO Kull Pion rviy Ku 
"DOO S&S WWM — NWO ™MAAIM MOU AAT MO 
OUMAMnNOOTT-UOM"OOoUIVIIOIM"oOoVUIIIm 


FOOD ODO LWMOTD™"OOTC OMT "OCT O 


SCODES + 05B4 


COOCCCOCCOCOCSCSCOCOCOOSOOOOOOOOSooOoe 


jeleleleleleleleleleloleleloleloleleiejeolelelejeleieio) 


f-senct9ge 02:01:39 


3$: 


4$: 


STATUS, 6$ 
MEADARY 4] 0 
"ett 


HEADARY+120 


STATUS, 6$ 
#0, OUTPUT_LISTLINE 
STATUS, 6$ 
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007C 00000 LIST_OLD_LIB: 
WORD 


s 715 1861 1 ROUTINE List_old_lib = ; 
: 716 1806 BEGIN : 
: 717 186 yng aA : ; 
; (718 1864 ! This routine Lists an old (VMS R1) format Library : 
: 719 1865 ! : 
; 720 1896 CAL : 
; ts] 139 deletedbytes; : 
ee ¢ 1868 ‘ 
MD 1869 BIND : 
: 724 1870 header = 5 Reodet epntret Clor$l ghgrote) ogy ece : 
> 725 1871 delbytes = header Lohd$l_delbytes vector C.WORD] ; 
: 096 1878 lastupdate = header ohdSt: Linstim] : VECTOR C,wOoRDS; ; 
: 728 1874 Lib$gl_ type * sheoder Clhd$b_typel; : 
: 168 P 1875 perform ( ib_ faol (fao dirnalitve. outsize, os, tad 3 
; 730 P 1876 -LibsaT_t typnanes C.Lib$gl ose) ; 
> 731 1877 Lib$gl_Ti fdb$l_namdescJ)); ; 
: r3¢ P 1878 ge perform (Lib_faol tite oldcredat, outsize. ¢ utdes : 
; 1879 ofl$c_Tibvering, header onast libver])); 3 
: 734 P 1880 2 perform (Lib_faol (fad paate {ei. 11 outsize, outdesc : 
. 7 P 1881 2 . Lastupdate » «libSal_months .lastupdate CiJ-1) , .lastupdate [0], ; 
: 736 1886 § la stupaete sl f pene wo (41, .lastupdate (5])); : 
; 737 P 188 perform (Lib_ faol (fao _oldmnt, outsize, outdesc, . 
; 738 P 1884 2 eheader Cohd$w_mntallol, : 
; 739 P 1885 § -header Cohd$wimntallo] - .header Cohd$w_mntaval), : 
; 740 1886 -header ghd3u_e mntaval))); ; 
: 741 1887 § IF .header Cohd$w agsteliod N : 
: 742 1888 THEN perform (Libs ae (fac RB outsize, outdesc, : 
> 743 P 1889 2 eReader Cond$w_gstallo], ; 
: 744 1890 2 sheader Cohd$w-gstallo] - .header Cohd$w_gstaval), : 
s 765 1891 § -header cohdsu. gstaval))); : 
: 746 19% deletedbytes = .delby tes -delbytes f03*%x"10000': ; 
3: 747 P 1893 2 perform (Lib_faol (f20 soldelsec. outsize, outdesc, ‘ 
; 768 1894 2 .deletedbytes) ) : 
; 749 1895 2 pertors (output_ listline ()); ‘Blank Line at the end ; 
; ro 1896 2 i true : - : 
Fa 1897 1 'Of List_old_lib : 
i pexe, R2,R3,R4,R5,R6 : 1861 : 

56 9000y CF 9E 0000 MOVAB LIB FAOL, aie ; ; 

55 000" CF 43 000 MOVAB OUTBESC, 3 3 

50 000000006 00 00 0000 MOVL t RS$GL “tontRoL. RO ; 1870 3 

53 A AQ 00 0001 MOVL 1 oS 3 3 

54 2 AS 9 Bht MOVAB 34(R3), R4 ; 1871) 3 

52 6 A3 9E 1B MOVAB 6(R3), R2 ; 1872) 3 

0000G CF 63 9A OOOIF MOVZBL (R3), LIBSGL_TYPE > 1874 é 

7E 0000G CF 1 C1 00024 ADDL #16, LIBSGL CIBFDB, (SP) 3; 1877. 3 

50 90006 CF DO A VL —- LIBSGL_TYPE; RO ; ; 

0000GCF40 DD : PUSHL LJBSAL_TYPNAMESLRO} ; 3 

5 po 8 4 PUSHL R 3 3 

98 A f 6 PUSHAB OQUTSIZE : 3 

0000° CF 9F 000 PUSHAB FAO_DIRNAMTYP 3 é 


rae 


Y 11 Oi legos V4.0-742 
LIBRAR.SRCJLISTLIB.B32;1 


AX- 


D 4 
1ea$ep-1986 $3:58:09 


o N Oo ~y — N a 
n~ rs) ne) o o o o oC o 
oO a) rs) o oo co rs) a ada 
_- _ - -- _— _ - ee 
Pe Pee Fe Fe FS FS FS FEHR FS FETS FS FS HS FS HTS HS TS HS HS HS HS HS HS HS HS HS HS HS HS HSER HES HS HS HS HS HOHE HS HE FESS HS HS HE SO HR FO HR HO HO HES 
| a 
o 2 
io 4 — 
uw ” a 
vy w = 
v _ ” 
a —~ [7 2) a ~ o ~ ~ > — 
—_ <4 ann =a aw a aa ) a a y aw Wat al 
oO ao. h|6[maaen CO =a & wn oO “non Ww Oo o aw ao t 
<a" w<itna~owouwa 2H -<an~oOorwrw~ —-<a<Aio ~rw -—-<es & we NLA 
— Gunvi-~moowr~ MuwrTriaatsi Zura ‘ae Yur eS at oe 
4 ~ 'tiwazi — =z o to -<sw@ w ft 
ms: wogm =. 4 f wom:+*es2s ss wom s « ess 6 wom «cao —2a wogm = «+ 
—wW Ne Ff ‘J * NUS On NER ROO New & fa ~s2s%3a3e 
a ho Po —O4UDNARR SRR SOUDMMMEM —O4UlDMH) Mma —On5D + -8oaF— “OUTDO Fe 
eh el] Mm t K—aovnwenm ft keaeoeoc ge wt kee ee YW ten wr we wie 
<r -—O *sf~aawao@ma +O -fw~w~w ww §-O saw ww —O sifwOomd + &§-O ea ot + 
Qtrvb a Gn Savas ebe barwteaha ban Cant heb tana Le an 
BVMOVB ST Ou BH OOH NV ITT Ou BYOMMM AM se Ou BS MMV se eOuBSMw~RVveZocou seve 
@ ee JJ Sf — asad —+ Jd 
“ 222 $3333 3_22u S33m32 eu 3 33m ue su =) - ee ” 
SVEETETTF rs TN TOT OT ON IN TTT ON IN IEEE OE ON IN IEEE TE wu 
< uD DDD Des UIDOOOCODO DDD << YOO O2OD5D3N<a40woo eed) tt tied eet att 
Y-@MQAAGAAAYMEETETETTASAAAYI*MTTEMEAAQAIMT@MEZRYOA AAC vO ae aaa vOvrata 
Ah a 
ne w 


Ros SSS SRARRASSS SNR DOOOOSCOSO MaKe 
COOOOOOOOCOOOOOOOOOCOOCOOOSOOSOSOSSOCCCCOCCCOOOOOCOCOCOCOOOOOOOOoOoOOoOO 
DMO u CO0e& OO VVYUVVV OV Oke & DOVVUM VY O& & OOVMVUM OA Oe & DOCMDV0C 0 0u4 OC OCow 
WA OOD OO  WIPTENIMIIEIPN OPN OO OF  LUIPIPIEN OOPN OPO LUPE PIE O O OOO & WPI PIU OOOO Ws WOO 
DOM TOWN NO CICICINICIO CIN & A OMIM MIND & OOM OMIM Oma OO Ow -OMNm a TF OOO 
Om Lome VONEA ad COST INTVON TT aINAINTVOMN a — FE MNN I VOOM OD ENN ZL VOMOMO 

Ne 

Vv 


= wo i e a eo 
~N oo qoo wo wr wo owo w WO oOo we oo N co 
Oo oo ooo COO OO Ne-N — OO - -—- oo o oo 
oO oOo Oo Oo o So 
Oo oOo oOo oOo o Oo 
ou OWwWwwwwoO w wowor--Oow woa0 lw CO oi oo-O OODuMo 
ow 0OrrRRN KF Or MNP orn enw DWDNUMNMNWN oovwow 


Ldbehbs" 1$:$e0-1984 93:91:32 ANSI BLiegr HZ vg 0eT42, 


; Routine Size: 243 bytes, Routine Base: S$CODE$S + 06D5 


F 4 
1er$ep-1986 93:90:09 EC Terancseeiuisrct 


; > 1898 1 ROUTINE display_globais (keydesc) = 
RE TRRR 3 oct 
s 136 1901 This routine is called by the Library erycgoeer for each 
; ref 1308 ; global symbol name when /NAMES is specified. 
; oe 190 
; 759 1904 aAr 
: rod 1288 keydesc : REF BBLOCK Cdsc$c_s_bin]; 
3 Ss 1907 Fen” outsize : stpoettet size 5 2) GTRU .Line_width ae ioe, somes 
; erform (ou stline 3 utpu 
: 764 1909 CHSMOVE. ( ekeydesc tdscSu,. “length. shexdese Cdsc$a s pointer’, ‘copy name into buffer 
3 765 1910 esc Cdsc$a_pointer 
3 roe 131] outdesc Cdsc$w_length] = Rita Gece. tengthd = aabe deatienes 
o nad 7U 
; S3 1318 outdesc Cdsc$a_pointer] = woutdtee tases, ointer) + 
; eysize ; 
; 770 1915 outsize = .outsize + LibSgl_ sReysite + 2; ‘and Length of Line used 
s ry 1916 pope Lcquar = e.eetcem . - 
. 7r 1917 ETURN (.globalcount NEG 
. FF, 1918 1 END; 'Of display_globals 
007C 00000 DISPLAY_GLOBALS: 
«WORD Save R2,R3,R4,R5,R6 
56 0000° CF 9€ 0000 MOV OUTSIZE, 
50 98 0000G CF ci 444d aret ak KEYSIZE, OUTSIZE, RO 
d8 A6 96 D1 00010 CMPL INE _WIDTH 
08 1B 00014 BLEQU 
0000v CF 9° 4 16 CALLS US 28 LISTLINE 
39 0 € 18 BLBC STAT 
50 046 AC oP OO1E 1$ MOVL KEYDE RO 
FC §6B6 04 R 60 2 33 MOovC3 (RO) ct ), QOUTDESC+4 
1 00006 CF b0 0 MOVL L1BS6L KEVSI 12e, R1 
50 FB Ab 0020 MOVZWL eytos EST, R 
50 51 C2 00051 UBL R1, R 
FB AG 50 02 A 0 SUBW #2, R utes 
50 51 FC AG ci 039 ADDL guivests R1, RO 
FC AG 02 Ad : 0 MOVAB (RO), OUTDESC+4 
50 66 51 § Be ADDL R1, OUTSIZE 
66 02 Ad é 4 MOVAB 2(RO), OUTSIZE 
oc $8 P) 48 DECL Gt ALCOUNT 
50 04 4 CLRL R 
oc OA 0 TSTL § OBAL COUNT 
9 3 BEQL 
6 INCL R 
4 00057 2%: RET 


; Routine Size: 88 bytes, Routine Base: S$CODE$ + 07C8 
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Lbe=000 14-Sep 71984 98: 93: 38 LIBRAR-SRCILISTLIB.B3251 ° 35 
| 
s 775 1919 1 ROUTINE Listselectdmods = 
i £76 1920 2 BEGIN | 
: 77 1921 ' 
3 ore 12 ¢ } Routine to List only selected modules from the Library | 
; 780 1924 LOCA 
: 78) 1925 txtrfa : BBLOCK geese _s bin, 
; 3 19 § Ln blk "REF BBLOCK 
; 78 19 st 
: «784 1928 coedead i BBLOCK os s_bln] 
; 785 1929 
; 786 1930 BUILTIN 
; 787 1931 REMQUE; 
; 788 19 ¢ 
; «4789 13e WHILE NOT REMQUE (.Lib$Sgl_modlisl, LnbLk) 
; 790 1934 DO BEGIN 
; 791 1935 a dsc$w_length] = .lnblk Fine naming); 
: 1936 keydesc (Cdsc$a_ oicers © Lnblk Clnb$t"namel; 
; 79 1937 curmatchdesc = evde 
3 ee 1338 IF NOT CHSFAIL (C SF IND. CH (.  inbLk Finbsb_ naming], Lnblk Clnb$t_name], !If wildcard | 
:; 796 1940 ; OR NOT CHSFAIL (CHSFIND_CH (. inblLk te inbsb naming], Lnblk Clnb$t_namel, 
s rer 1941 “ZA ASCII *#')) 
; 798 bo 4 THEN BEGIN 
; 799 1945 4 status = Lbr$ et. sees 7 L_Libetl, Lib$gl pognenta, 'Then check whole index 
; 800 1944 4 dispatch C.liB$gl_type), keydesc); 
: 801 1945 4 IF “statu EQL tees nomtchfou 
; 802 1946 4 THEN. 81 GNAL CLi6S ~nontchfou, 1, keydesc) 
; 803 1947 4 ELSE IF NOT .sta 
; 804 1948 4 THEN SIGNAL (Libs. indexerr, 1, 34s + tag Cfdb$l_namdesc], 
; 805 1949 4 -StatUs, .lbr$gl_rmsstv 
; 806 1950 4 END 
; 807 1951 4 ELSE BEGIN 
; 808 P 1336 4 rms_perform (lbr$looku seey CLibsgl. Libctl, keydesc, txtrfa), 
; 809 P1953 4 ibs zigokuperr, . lor $9 mest 
; 810 1954 4 2, keydesc, Li bsal Libfab Cfdb$t _namdescJ); 
: ai 1999 4 fits, dispatch C.Lib$gl_type]) (keydesc, txtrfa); ‘List it 
; Biz +44 5 Lib. free_mem (Lnb$c_fixedsize+.inblk Clnb$b_naming], .lnblk); | 
s #815 1959 $ RETURN. true 
; 816 1960 1 END; 
| 
| 
003¢ 00000 LISTSELECTDMODS: | 
«WORD Save R2,R3,R4,R5 ; 1919 
$5 000000006 00 9£ 00002 MOVAB —LBRSGL RMSSTV) RS : | 
54 00000000 9 9009 HOVAB LiBss BSS IGNA AL, R4 ; 
pO 1 SUBL2 #16 ; | 
5 00006 DF F 0 1$: REMOUE aL 16scl_ MODLISL, LNBLK ; 1933, 
00D 3 6 1A {bs 3 
6E + A 8 1D 2% MOVZ7BW 9(LNBLK), KEYDESC 3 et 
04 AE A A2 9E 00021 MOV 1OCLNBLKS, KEYDESC+4 ; 1936 


H 4 
LIB_LIST 16-Sep AX-11 Bliss-32 V4.0-742 Page 38) 
VGe=000 14-Sep 71382 96: 93; 39 LIBRAR.SRCILISTLIB.B32;1 ° a3 
0000" CF 6E 9E 6 MOVAB KEYDESC CURMATCHDESC : 1937) 
0 09 =A A B MOVZBL 9(LN : 1938. 
OA A2 0 A F LOCC #37, RO, 10(LNBLK) : 
é 12 00034 BNEQ 3$ : 
D4 000 6 CLAL sR : 
1 b8 0 3$: TSTL = RY + 1939) 
11 12 OOO3A NEQ 5$ : | 
50 09 A2 a, 00 C MOVZBL BLNBLK) RO + 1940 
OA A2 50 A 3A 046 LOCC #42, RO, 10(LNBLK) : 
é 12 0004 BNEQ 4$ : | 
D4 00047 CLRL sR : 
21 D3 0049 4$: TSTL = RV + 1941 
0 1 4B BEQL «= 7$ : 
5E DD 00040 5$: PUSHL SP + 1943) 
50 00006 CF DO O004F MOVL LIBSGL_TYPE, RO 1944 | 
0000'CF40 DD 00054 PUSHL LIS_DISPATCHCRO] ; 
00006 CF 9F 00059 PUSHAB LIBSGL -MODNAMIX + 1943) 
00006 CF 9F 0005D PUSHAB LIB$GL~LIBCTL ; 
000000006 00 04 FB 00061 CALLS #4, LBRSGET. TNDEX : 
53 50 DO 00068 MOVL RO, STATUS ; 
000000006 &F 53 D1 00068 CMPL STATUS, #LBRS_NOMTCHF OU + 1945. 
OF 12 00072 BNEQ 6$ ; 
SE DD 00074 PUSHL SP + 1946. 
07 DD 00076 PUSHL ul ; 
000000006 8F DD 00078 PUSKHL #LIB$_NOMTCHFOU : 
64 03 FB OOO7E CALLS LTB$SIGNAL 3 
SA 11 00081 BRB 98" ; 
57 53 (EB 90085 6$: BLBS STATUS, 9$ + 1947) 
65 0D 00086 PUSHL LBRSGL_RMSSTV + 1949) 
53 DD 00088 PUSHL ST : 
7E 00006 CF 10 C1 OO08A ADDL3 #16, LIBSGL_LIBFDB, -(SP) : 1948 
01 DD 00090 PUSHL ; 
000000006 8F DD 0098 PUSHL rt INDEXERR ; 
64 05 FB 9099 CALLS #5, LIBSSIGNAL 3 
40 11 00098 BRB : 1938 
08 AE 9F 0009D 7$: PUSHAB TRTRFA + 1954 
04 AE 9F 000A PUSHAB KEY DESC ; 
00006 CF 9F OOOA PUSHAB LIBSGL JL IBCTL : | 
000000006 00 03 FB OOOA CALLS Cbrgi OOKUP. KEY ; | 
18 0 €E8 OOOAE BLBS ST : 
63 DD 00081 PUSHL LBRSGL_RMSSTV ; 
0 oD 0085 PUSH TAT ; 
7E 00006 CF 10 cl 008 ADDL3 #16, LIBSGL_LIBFDB, -(SP) ; 
0c AE F 6 BB PUSHAB KEYDESC ; 
DD BE PUSHL ; 
000000006 BF DD 000Cc PUSHL #LIB$_LOOKUPERR F 
64 6 FB 00066 CALLS #6, LIBSSIGNAL ; 
50 00006 CF D C9 8S: MOVL  LIBSGL_TYPE, RO : 1955 
50 0000" cF40 b OcE MOVL _LIS_DISPATCHCROJ, RO : 
AE 9F 00004 PUSHAB TXTRFA : 
AE OF 007 PUSHAB KEYDES( : 
60 : FB OOODA CALLS #2, (RO) ; 
pp DD 9S: PUSHL " LK ; 1957 | 
7E 09 A2 9A O00DF MOVZBL 9S(LNBLK), (SP) ; 
oo00s tf a9 FB OOOES CALLS #2, "LIB, FREE_MER es 
FF : 5g 00EB BRU f test : 1933 | 
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50 01 4 ROOEE 108: poy #1, RO : 1959 


; Routine Size: 242 bytes, Routine Base: S$CODE$ + 0820 


; 818 1961 1 ROUTINE Lib_faol (control_string, out_length, out_desc, param_list) = 

: 819 1969 BEGIN Qg. Out Leng ut. p \e 

: Bel 1964 i This routine formats an ascii Line with error handling 

3 4 ¢ 1392 It also outputs the Line to the Listing file 

: B24 P 1963 perform (SYSS$FAOL (.control string, .out_length, .out_desc, param_List), 
; 825 1968 aofail, 0); 

; 826 1969 perform (output_listTine ()); 

; 827 1970 ETURN true 

; 828 1971 1 END; 'Of Lib_faol 


0000 00000 LiB_FAOL: 
eWORD Save nothing 


10 AC OF 0002 PUSHAB PARAM LIST 
7E 08 aC 7D 0000 MOVO  OUT_LENGTH, =(SP) 
04 AC DD 00009 PUSHL CONTROL STRING 
000000006 00 4 FB 900¢ CALLS 4, SYSSE AOL 
OB Big TaN 
000000006 00 setae ec 03 PB niet FACTS £e oe re se TOHAL 
0000v CF 0 FB 00 5 1$ CALLS #0, OUTPUT_LISTLINE 
03 50 £9 0002C BLBC STATUS, 
50 01 DO 0002F MOVL , RO 
04 00032 28: RET 


; Routine Size: 51 bytes, Routine Base: $CODE$S + 0912 
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LIB_LIST 16-Sep 4 AX-11 Bliss-32 V4.0-742 
Loe =boe 14°$ Sep 1383 96: 93; 39 LIBRAR.SRCILISTLIA.B32¢1 
; 830 1378 1 ROUTINE output_Listline = 
3 5 1 197 BEGIN 
3 § 1974 ! 
3 4 ? 1303 output the Listing Line 
; 835 1999 Libsal rab Crab$w_rsz] = .outsize 'Set record size 
3 te] 1308 Lib b$al"rab Crab$l-rbf) = sutputeut fer: ‘and address 
; 838 1980 ' Delete trailing spaces 
: B39 198) 5 i dnd 
; 840 1386 If .lib$Sal_rab Crab$w_rsz) NEQ 0 
; «841 138 THEN BEGIN 
3 Hk 1984 LOCAL 
3; «84 1985 ptr; 
3 6844 1986 
; 845 1987 ptr = ,lib$Sal_rab Crab$l_rbf] + .lLib$al_rab Crab$w_rsz); 
: 846 1988 4 HILE ¢ 
3; 847 1989 4 etc = sete - 1; 
: 848 1990 4 H$RCHAR (.ptr) EQL XASCII ' ' 
; Bey mae 3 DO Lib$Sal_rab Crab$w_rsz] = .LibSal_rab Crab$w_rsz) - 1; 
3 S26 P 1994 rms_perform (SPUT (RAB = Lib$al_rab), ‘write the record 
; 85 P 1995 Lid$_writeerr 
> 854 1996  L1oSal _rab Crabsl stv], 1, LibSgl_lisfds Cfdb$l_namdesc]); 
; 855 1997 outsize = 
; 856 1998 outdesc isi Length) |= Lib$c ‘ia 
; 857 1999 outdesc Cdsc$a_pointer] = .outputbuffer 
; 858 2000 § CHSFILL (ZASCIT ' ', LibSc_lisrecing, ‘butautbutter)) 
; 859 2001 RETURN true 
; 860 2002 1 END; !Of output_listline 
eEXTRN SYS$PUT 
OOFC 00000 OUTPUT_LISTLINE: 
-WORD Save R2,R3,R4, Re. R6,R7 
57 0000" CF 9E 9002 MOVAB OUTPUTBUFFER 
56 0000G CF 9E 0000 MOVAB LIBSAL we "Re, 
66 FC =A? «BO 0000C MOVW  OUTSIZE, LIBSAL_RAB+34 
06 Aé6 67 0 8 10 MOVL OUTPUTBUFFER LIBSAL _RAB+40 
50 66 i 14 MOV ZL LJBSAL_RAB+34, RO 
50 06 A6 § 19 ADDL2 LIBSAL RAG; 40. PTR 
20 70 1 5 1D 1$: CMPB -(PTR), #32 
04 § BNEQ 
06 ° DECW b{BSAL. RAB+34 
F 1 BRB 
DE A6 9F 00026 26: PUSHAB hae RAB 
000000006 00 gf 4} BR 9 CALLS ary eeey 
1A 0 € BLBS STA 
EA A6é OD PUSHL at -RAB+12 
5 op PUSH $ 
7E 0000G CF 1 C ADDL #16, LIBSGL_LISFDB, -(SP) 
4 dD f PUSHL #1 
008610D2 F DD 4 PUSHL #8786130 


-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 


SOWNS 48 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 1992 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SCODES 2475 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
Se Cited” eae, Pees iate. Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: ~$255$DUA28: CSYSLIBISTARLET.L32;1 9776 51 0 581 00:01.0 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL OPTIMIZE)/LIS=LIS$:LISTLIB/OBJ=OBJ$:LISTLIB MSRC$:LISTLIB/UPDATE=(ENH$:LISTLIB) 
; Size: 2475 code + 2040 data bytes 


; Run Time: 754, 
: Elapsed Time: 01:35.9 
; Lines/CPU Min: ; 

; Lexemes/CPU-Min: 315358 

; ponery Used: 336 pages 
3 a 


; Compilation Complete 


4 
LIB_LIST 18-Se 1984 02:01: AX=11 Bliss-32 V4.0-742 
ve=b00 12-8 08- 1 3B 95:93:38 AYBRAR  SREILESTY 1B Boo—1 
000000006 00 05 Fe 46 CALLS #5, LIBS$SIGNAL 
FC OA p 40 3$: CLAL tSIZeE 
F4 OAT 84 BF : MOV2BW #132, OUTDESC 
FB OAT 67 p MOVL OUTPUTBUFFER OUTDESC+4 
0084 8F 20 6E a 9 C 0 39 MOVCS #0, (SP), #32, #132, @OUTPUTBUFFER 
50 it BO 006¢ MOVL #1, RO 
4 0006 RET 

; Routine Size: 102 bytes, Routine Base: S$CODE$ + 0945 
: 861 2003 1 END ' Of module 
> B62 2004 0 ELUDOM 
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